home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Controls / Visual Basic Controls.iso / vbcontrol / mcbar / puzzle.fr_ / puzzle.fr (.txt)
Encoding:
Visual Basic Form  |  1998-02-09  |  14.5 KB  |  383 lines
  1. VERSION 5.00
  2. Object = "{CD8DBB13-94EE-11D1-921D-006097A8F11E}#14.0#0"; "mcBar.ocx"
  3. Begin VB.Form frmPuzzle 
  4.    Caption         =   "Puzzle"
  5.    ClientHeight    =   4980
  6.    ClientLeft      =   60
  7.    ClientTop       =   345
  8.    ClientWidth     =   7920
  9.    ScaleHeight     =   4980
  10.    ScaleWidth      =   7920
  11.    StartUpPosition =   2  'CenterScreen
  12.    Begin mcBar_by_The_MCR_Company.mcBar mcBar1 
  13.       Height          =   4260
  14.       Left            =   90
  15.       TabIndex        =   1
  16.       Top             =   360
  17.       Width           =   7740
  18.       _ExtentX        =   13653
  19.       _ExtentY        =   7514
  20.       Blocks          =   26
  21.       Block.BorderStyle(1)=   2
  22.       Block.HPercentage(1)=   "100"
  23.       Block.VPercentage(1)=   "100"
  24.       Block.Color(1)  =   12632256
  25.       BeginProperty Block.TextFont(1) {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  26.          Name            =   "MS Sans Serif"
  27.          Size            =   8.25
  28.          Charset         =   0
  29.          Weight          =   400
  30.          Underline       =   0   'False
  31.          Italic          =   0   'False
  32.          Strikethrough   =   0   'False
  33.       EndProperty
  34.       BeginProperty Block.TextFont(2) {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  35.          Name            =   "MS Sans Serif"
  36.          Size            =   8.25
  37.          Charset         =   0
  38.          Weight          =   400
  39.          Underline       =   0   'False
  40.          Italic          =   0   'False
  41.          Strikethrough   =   0   'False
  42.       EndProperty
  43.       BeginProperty Block.TextFont(3) {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  44.          Name            =   "MS Sans Serif"
  45.          Size            =   8.25
  46.          Charset         =   0
  47.          Weight          =   400
  48.          Underline       =   0   'False
  49.          Italic          =   0   'False
  50.          Strikethrough   =   0   'False
  51.       EndProperty
  52.       BeginProperty Block.TextFont(4) {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  53.          Name            =   "MS Sans Serif"
  54.          Size            =   8.25
  55.          Charset         =   0
  56.          Weight          =   400
  57.          Underline       =   0   'False
  58.          Italic          =   0   'False
  59.          Strikethrough   =   0   'False
  60.       EndProperty
  61.       BeginProperty Block.TextFont(5) {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  62.          Name            =   "MS Sans Serif"
  63.          Size            =   8.25
  64.          Charset         =   0
  65.          Weight          =   400
  66.          Underline       =   0   'False
  67.          Italic          =   0   'False
  68.          Strikethrough   =   0   'False
  69.       EndProperty
  70.       BeginProperty Block.TextFont(6) {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  71.          Name            =   "MS Sans Serif"
  72.          Size            =   8.25
  73.          Charset         =   0
  74.          Weight          =   400
  75.          Underline       =   0   'False
  76.          Italic          =   0   'False
  77.          Strikethrough   =   0   'False
  78.       EndProperty
  79.       BeginProperty Block.TextFont(7) {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  80.          Name            =   "MS Sans Serif"
  81.          Size            =   8.25
  82.          Charset         =   0
  83.          Weight          =   400
  84.          Underline       =   0   'False
  85.          Italic          =   0   'False
  86.          Strikethrough   =   0   'False
  87.       EndProperty
  88.       BeginProperty Block.TextFont(8) {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  89.          Name            =   "MS Sans Serif"
  90.          Size            =   8.25
  91.          Charset         =   0
  92.          Weight          =   400
  93.          Underline       =   0   'False
  94.          Italic          =   0   'False
  95.          Strikethrough   =   0   'False
  96.       EndProperty
  97.       BeginProperty Block.TextFont(9) {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  98.          Name            =   "MS Sans Serif"
  99.          Size            =   8.25
  100.          Charset         =   0
  101.          Weight          =   400
  102.          Underline       =   0   'False
  103.          Italic          =   0   'False
  104.          Strikethrough   =   0   'False
  105.       EndProperty
  106.       BeginProperty Block.TextFont(10) {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  107.          Name            =   "MS Sans Serif"
  108.          Size            =   8.25
  109.          Charset         =   0
  110.          Weight          =   400
  111.          Underline       =   0   'False
  112.          Italic          =   0   'False
  113.          Strikethrough   =   0   'False
  114.       EndProperty
  115.       BeginProperty Block.TextFont(11) {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  116.          Name            =   "MS Sans Serif"
  117.          Size            =   8.25
  118.          Charset         =   0
  119.          Weight          =   400
  120.          Underline       =   0   'False
  121.          Italic          =   0   'False
  122.          Strikethrough   =   0   'False
  123.       EndProperty
  124.       BeginProperty Block.TextFont(12) {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  125.          Name            =   "MS Sans Serif"
  126.          Size            =   8.25
  127.          Charset         =   0
  128.          Weight          =   400
  129.          Underline       =   0   'False
  130.          Italic          =   0   'False
  131.          Strikethrough   =   0   'False
  132.       EndProperty
  133.       BeginProperty Block.TextFont(13) {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  134.          Name            =   "MS Sans Serif"
  135.          Size            =   8.25
  136.          Charset         =   0
  137.          Weight          =   400
  138.          Underline       =   0   'False
  139.          Italic          =   0   'False
  140.          Strikethrough   =   0   'False
  141.       EndProperty
  142.       BeginProperty Block.TextFont(14) {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  143.          Name            =   "MS Sans Serif"
  144.          Size            =   8.25
  145.          Charset         =   0
  146.          Weight          =   400
  147.          Underline       =   0   'False
  148.          Italic          =   0   'False
  149.          Strikethrough   =   0   'False
  150.       EndProperty
  151.       BeginProperty Block.TextFont(15) {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  152.          Name            =   "MS Sans Serif"
  153.          Size            =   8.25
  154.          Charset         =   0
  155.          Weight          =   400
  156.          Underline       =   0   'False
  157.          Italic          =   0   'False
  158.          Strikethrough   =   0   'False
  159.       EndProperty
  160.       BeginProperty Block.TextFont(16) {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  161.          Name            =   "MS Sans Serif"
  162.          Size            =   8.25
  163.          Charset         =   0
  164.          Weight          =   400
  165.          Underline       =   0   'False
  166.          Italic          =   0   'False
  167.          Strikethrough   =   0   'False
  168.       EndProperty
  169.       BeginProperty Block.TextFont(17) {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  170.          Name            =   "MS Sans Serif"
  171.          Size            =   8.25
  172.          Charset         =   0
  173.          Weight          =   400
  174.          Underline       =   0   'False
  175.          Italic          =   0   'False
  176.          Strikethrough   =   0   'False
  177.       EndProperty
  178.       BeginProperty Block.TextFont(18) {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  179.          Name            =   "MS Sans Serif"
  180.          Size            =   8.25
  181.          Charset         =   0
  182.          Weight          =   400
  183.          Underline       =   0   'False
  184.          Italic          =   0   'False
  185.          Strikethrough   =   0   'False
  186.       EndProperty
  187.       BeginProperty Block.TextFont(19) {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  188.          Name            =   "MS Sans Serif"
  189.          Size            =   8.25
  190.          Charset         =   0
  191.          Weight          =   400
  192.          Underline       =   0   'False
  193.          Italic          =   0   'False
  194.          Strikethrough   =   0   'False
  195.       EndProperty
  196.       BeginProperty Block.TextFont(20) {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  197.          Name            =   "MS Sans Serif"
  198.          Size            =   8.25
  199.          Charset         =   0
  200.          Weight          =   400
  201.          Underline       =   0   'False
  202.          Italic          =   0   'False
  203.          Strikethrough   =   0   'False
  204.       EndProperty
  205.       BeginProperty Block.TextFont(21) {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  206.          Name            =   "MS Sans Serif"
  207.          Size            =   8.25
  208.          Charset         =   0
  209.          Weight          =   400
  210.          Underline       =   0   'False
  211.          Italic          =   0   'False
  212.          Strikethrough   =   0   'False
  213.       EndProperty
  214.       BeginProperty Block.TextFont(22) {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  215.          Name            =   "MS Sans Serif"
  216.          Size            =   8.25
  217.          Charset         =   0
  218.          Weight          =   400
  219.          Underline       =   0   'False
  220.          Italic          =   0   'False
  221.          Strikethrough   =   0   'False
  222.       EndProperty
  223.       BeginProperty Block.TextFont(23) {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  224.          Name            =   "MS Sans Serif"
  225.          Size            =   8.25
  226.          Charset         =   0
  227.          Weight          =   400
  228.          Underline       =   0   'False
  229.          Italic          =   0   'False
  230.          Strikethrough   =   0   'False
  231.       EndProperty
  232.       BeginProperty Block.TextFont(24) {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  233.          Name            =   "MS Sans Serif"
  234.          Size            =   8.25
  235.          Charset         =   0
  236.          Weight          =   400
  237.          Underline       =   0   'False
  238.          Italic          =   0   'False
  239.          Strikethrough   =   0   'False
  240.       EndProperty
  241.       BeginProperty Block.TextFont(25) {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  242.          Name            =   "MS Sans Serif"
  243.          Size            =   8.25
  244.          Charset         =   0
  245.          Weight          =   400
  246.          Underline       =   0   'False
  247.          Italic          =   0   'False
  248.          Strikethrough   =   0   'False
  249.       EndProperty
  250.       Block.BarLeft(26)=   0
  251.       Block.BarRight(26)=   100
  252.       Block.HPercentage(26)=   "100"
  253.       Block.VPercentage(26)=   "100"
  254.       Block.Color(26) =   12632256
  255.       BeginProperty Block.TextFont(26) {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  256.          Name            =   "MS Sans Serif"
  257.          Size            =   8.25
  258.          Charset         =   0
  259.          Weight          =   400
  260.          Underline       =   0   'False
  261.          Italic          =   0   'False
  262.          Strikethrough   =   0   'False
  263.       EndProperty
  264.       Object.Height          =   4260
  265.       Object.Width           =   7740
  266.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  267.          Name            =   "MS Sans Serif"
  268.          Size            =   8.25
  269.          Charset         =   0
  270.          Weight          =   400
  271.          Underline       =   0   'False
  272.          Italic          =   0   'False
  273.          Strikethrough   =   0   'False
  274.       EndProperty
  275.       Picture         =   "Puzzle.frx":0000
  276.    End
  277.    Begin mcBar_by_The_MCR_Company.mcBar mcStatusBar 
  278.       Align           =   2  'Align Bottom
  279.       Height          =   285
  280.       Left            =   0
  281.       TabIndex        =   0
  282.       Top             =   4695
  283.       Width           =   7920
  284.       _ExtentX        =   13970
  285.       _ExtentY        =   503
  286.       Blocks          =   2
  287.       Block.BarLeft(1)=   0
  288.       Block.BarRight(1)=   90
  289.       Block.BorderStyle(1)=   2
  290.       Block.HPercentage(1)=   "90"
  291.       Block.VPercentage(1)=   "100"
  292.       Block.Color(1)  =   12632256
  293.       Block.GradientStyle(1)=   6
  294.       Block.GradientColor(1)=   16777215
  295.       Block.Text(1)   =   "mcBar ActiveX control by The MCR Company"
  296.       BeginProperty Block.TextFont(1) {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  297.          Name            =   "MS Sans Serif"
  298.          Size            =   8.25
  299.          Charset         =   0
  300.          Weight          =   700
  301.          Underline       =   0   'False
  302.          Italic          =   0   'False
  303.          Strikethrough   =   0   'False
  304.       EndProperty
  305.       Block.TextFont3D(1)=   4
  306.       Block.BarLeft(2)=   90
  307.       Block.BarRight(2)=   100
  308.       Block.BorderStyle(2)=   2
  309.       Block.HPercentage(2)=   "10"
  310.       Block.VPercentage(2)=   "100"
  311.       Block.Color(2)  =   12632256
  312.       Block.Text(2)   =   "!long time!"
  313.       BeginProperty Block.TextFont(2) {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  314.          Name            =   "Arial"
  315.          Size            =   8.25
  316.          Charset         =   0
  317.          Weight          =   400
  318.          Underline       =   0   'False
  319.          Italic          =   0   'False
  320.          Strikethrough   =   0   'False
  321.       EndProperty
  322.       Block.TextFont3D(2)=   4
  323.       Object.Height          =   285
  324.       Object.Width           =   7920
  325.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  326.          Name            =   "MS Sans Serif"
  327.          Size            =   8.25
  328.          Charset         =   0
  329.          Weight          =   700
  330.          Underline       =   0   'False
  331.          Italic          =   0   'False
  332.          Strikethrough   =   0   'False
  333.       EndProperty
  334.    End
  335.    Begin VB.Label Label1 
  336.       AutoSize        =   -1  'True
  337.       Caption         =   "Click on each block to see a part of the hidden picture"
  338.       Height          =   195
  339.       Left            =   90
  340.       TabIndex        =   2
  341.       Top             =   90
  342.       Width           =   3840
  343.    End
  344. Attribute VB_Name = "frmPuzzle"
  345. Attribute VB_GlobalNameSpace = False
  346. Attribute VB_Creatable = False
  347. Attribute VB_PredeclaredId = True
  348. Attribute VB_Exposed = False
  349. Option Explicit
  350. Private Sub Form_Load()
  351.    Dim i          As Integer
  352.    Dim j          As Integer
  353.    Dim n          As Integer
  354.    mcBar1.Blocks = 26
  355.    mcBar1.Redraw = False
  356.    mcBar1.BlockVisible(26) = False
  357.    For i = 1 To 5
  358.       For j = 1 To 5
  359.          n = ((i - 1) * 5) + j
  360.          mcBar1.IndexBlock = n
  361.          mcBar1.BlockBarLeft = (j - 1) * 20
  362.          mcBar1.BlockBarRight = (j * 20)
  363.          mcBar1.BlockBarBottom = (i - 1) * 20
  364.          mcBar1.BlockBarTop = (i * 20)
  365.          mcBar1.BlockTextFont.Bold = True
  366.          mcBar1.BlockText = mcBar1.IndexBlock
  367.       Next j
  368.    Next i
  369.    mcBar1.SetBlockColor &HC0C0C0
  370.    mcBar1.SetBlockBorderStyle mcRaised
  371.    mcBar1.SetBlockRivetsStyle mcRaisedRivets
  372.    mcBar1.SetBlockGradientStyle mcOuterRectangleGradient
  373.    mcBar1.SetBlockGradientGranularity mcLow
  374.    mcBar1.SetBlockGradientColor &H808080
  375.    mcBar1.SetBlockGradientColorEnd &HE0E0E0
  376.    mcBar1.SetBlockTextColor vbWhite
  377.    mcBar1.Redraw = True
  378.    mcStatusBar.TimerTimeEnabled = True
  379. End Sub
  380. Private Sub mcBar1_BlockClicked(iBlock As Integer)
  381.    If (iBlock <> -1) Then mcBar1.BlockVisible(iBlock) = False
  382. End Sub
  383.